SCREEN 2,320,250,3,1
WINDOW 2,"",,16,2
COLOR 1,4
Beginn:
RESTORE:FOR j=1 TO 3
CLS:GOSUB Titel:FOR i=4 TO 29:READ cd$:LOCATE i,1:PRINT cd$:NEXT i
SOUND 180,5
Beginn1:
b$=INKEY$:IF b$="" THEN Beginn1
NEXT j
Beginn2:
b$=INKEY$:IF b$="1" THEN Beginn
IF b$="2" THEN LOAD"Sondensuche",R
GOTO Beginn2
Titel:
LOCATE 1,1:PRINT"                                       "
LOCATE 2,1:PRINT"         S O N D E N S U C H E         " 
LOCATE 3,1:PRINT"                                       "
RETURN
DATA "Das Ziel dieses Spieles ist es, vier   "
DATA "Sonden in einer 8x9-Matrix ausfindig zu"
DATA "machen.                                "
DATA "Zu Beginn müssen die Anzahl der Spieler"
DATA "(1-4) angegeben werden. Dies erfolgt   "
DATA "über die Eingabe der Leertaste. Dann   "
DATA "laufen die Zahlen von 1 bis 4 durch und"
DATA "beginnen dann wieder bei 1. Wenn die   "
DATA "die Return-Taste betätigt wird, sind   "
DATA "die Anzahl der Spieler übernommen wor- "
DATA "den, und anschließend sind die Vornamen"
DATA "der Spieler(max. 8 Zeichen) einzugeben "
DATA "und mit Return zu bestätigen.          "
DATA "Dann wird die 8x9-Matrix aufgebaut, und"
DATA "es erscheint ein Cursor, der mittels   "
DATA "Joystick(2) über diese Matrix senkrecht"
DATA "und waagerecht bewegt werden kann.     "
DATA "Der Computer verteilt rein zufällig für"
DATA "jeden Spieler vier Sonden in die Ma-   "
DATA "trix. Mit dem Feuerknopf des Joysticks "
DATA "wird auf dem bestimmten Punkt dieser   "
DATA "Matrix abgefragt, ob es sich um einen  "
DATA "Treffer handelt, oder es wird eine Zahl"
DATA "von 0 bis 4 ausgegeben.                "
DATA "                                       "
DATA "                       Taste drücken >>"
DATA "Von diesem Punkt ausgesehen wird nach  "
DATA "allen acht Richtungen geprüft, ob in   "
DATA "diesem Bereich Sonden vorliegen. Ist   "
DATA "dies nicht der Fall, wird in diesem    "
DATA "Punkt eine 0 angezeigt. Liegen eine    "
DATA "oder auch mehrere Sonden vor, wird dies"
DATA "durch die Zahlen 1 bis 4 wiedergegeben."
DATA "Es wird jedoch darauf hingewiesen, daß "
DATA "vom Punkt ausgesehen in einer Richtung "
DATA "immer nur die erste Sonde gezählt wird."
DATA "Wenn also hinter dieser Sonde noch eine"
DATA "versteckt sein sollte, ist diese im    "
DATA "`Schatten`. Handelt es sich um einen   "
DATA "Volltreffer, ertönt eine Syrene, und   "
DATA "dieser Punkt wird dann in der Farbe    "
DATA "lila dargestellt. Wenn es sich um eine "
DATA "0 handelt, werden in allen acht Rich-  "
DATA "tungen die Felder schwarz gekennzeich- "
DATA "net. In diesen Punkten kann ja dann    "
DATA "keine Sonde vorhanden sein.            "
DATA "Nach Betätigen des Feuerknopfs und der "
DATA "Ausgabe der Information ist der nächste"
DATA "Spieler an der Reihe. Wer zuerst vier  "
DATA "Sonden gefunden hat, ist Sieger.       "
DATA "                                       "
DATA "                       Taste drücken >>"
DATA "Danach erscheint die Auflösung des     "
DATA "ersten Spielers. Die Sonde(n), die man "
DATA "nicht ausfindig gemacht hat,w(ird)erden"
DATA "gepunktet in lila dargestellt. Durch   "
DATA "das Betätigen der Return-Taste wird die"
DATA "Auflösung des nächsten Spielers ange-  "
DATA "zeigt. Wenn alle Auflösungen wiederge- "
DATA "geben wurden und anschließend die      "
DATA "Return-Taste betätigt wird, wird die   "
DATA "Frage gestellt, ob noch einmal gespielt"
DATA "werden soll. Wenn dies der Fall ist,   "
DATA "beginnt das Spiel von vorne; also An-  "
DATA "zahl der Spieler und Angabe der Vor-   "
DATA "namen etc. Wenn man nicht weiterspielen"
DATA "möchte, betätigt man die Taste `N` und "
DATA "das Programm verabschiedet sich mit    "
DATA "`Tschüß`.                              "
DATA "                                       "
DATA "Ich wünsche Ihnen nun viel Spaß mit    "
DATA "meinem Programm `Sondensuche`.         "
DATA "                                       "
DATA "  1> Anleitung noch einmal lesen       "
DATA "                                       "
DATA "  2> Sondensuche laden/starten         "
DATA "                                       "
DATA "         entsprechende Taste drücken >>"